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1-003 6-SEP-1984 7:40:25 PLIRTL.SRCIJPLIWRITE.MAR; 1 (1) 
-title pli$write - pl1 runtime write file 
eident /1-003/ 3 Edit wWHM1003 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


* 
® 
& 
a 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER = 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE fO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
® 
7 
® 
® 
® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
facility: 


VAX/VMS PL1 runtime Library. 
abstract: 


Hg | Fei contains the pl1 runtime routine for writing a record to 
a file. 


author: c. spitz 18-jul-79 
modified: 
Bill Matthews 22-Sep-81 


Fix to get attributes of a close file from the declared 
attributes rather than the current attributes 


oo SOSOCOCSCOSSOSOSSOSOSSOSOSOSOSOSOSOSOSOSOSOSOSOSOOOSOOOOOOOOOOOOSoOoOo 


oooooooo oo 


1-003 Bill Matthews 29-September-1982 
Invoke macros $defdat and rtshare instead of $defopr and share. 
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- pll runtime write file 


;* 
3; local 
$offset 


$deffcb 
$defdat 
$Srabdef 
$rmsdef 
$fabdef 


definitions 


4,positive,<- 
<fcbaddr,4>,- 
<fromaddr ,4>,- 
<fromlen,2>,- 
<fromtyp,2>,- 
<keyaddr,4>,- 
<keylen,4>,- 
<keytyp,4>,- 
<fxcaddr,4>,- 
<fxclen,2>,- 
<fxctyp,2>,- 
<recidto,4>,- 
> 


rtshare 


sdefine file control block offsets 
;define operand node data types 
:define rab offsets 

define rms error codes 

sdefine fab offsets 


idefine arguments 
saddr of fcb 

zsaddr of from 

ilength of from 

;data type of from 

addr of neytren 

zlength of keyfrom 

data type of keyfrom 

saddr of fixed control 

zlen of fixed control 

jdata type of fixed control 
zsaddr of record id to 


zsharable 


—_—___-_-----—- — 
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03 6C O01 

OF 13 

06 6C O01 
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05 13 

50 04 

0140 31 

26 04 AC 00 
5 Oc A2 DO 
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pli$write -- write a record to a file 
functional description: 

This routine writes a record to a pl! file. 


inputs: 

(ap) = nyaber of arguments — 

if no key, no options 

if key, no options 

if any options : 
) = address of the fcb for this file 
= address of the from reference 
= word containing the length of the from reference 
) = word contetalns the data type of the from reference 
address of the key reference 
size/prec of key 
data type of key 
addr of fixed control : 
word containing length of fixed control 
) = word gonceneeny data type of fixed control 
= addr of record id to 


o-oo eooo —-o2 00 


) 

“ 
1 
p) 
p) 
D) 
o) 


outputs: 
fcb_l_attr rir 
atr_m_delete and atr_m_virgin are set false 
atr_m_write and atr_m_currec are set true = 
fcb_q.rfa if Set to the rfa of the record that was written 


side effects: F : ; 
the record is written to the file. 


-entry pli$write,*m<r2,r2,r4.r5,r6,r7,r8> 
check arguments. at least 3 arguments must be present. 
cmpl (ap) ,#3 
108 


beql :if eql, yes 
cmpl ag) 6 senuf args? 
beql 10 :if eql. yes 
cmpl fap) .@9 zenuf args? 
beql 10 :if eql, yes 
clrl r0- sindicate not enough parms 
brw fail zand fail 
10$: mov | fcbaddr(ap) .r2 sget address of fcb 
mov l feb_l_attr(r2) 3 iget attributes 


open the file if necessary. the open attributes will be record and 
if update was not specified in the file declaration, output. if the 
file is not opened after calling open, an error is signaled. 


bbs #atr_v_opened,r3,30$ 
pushl #atr_m_record 


sif file not opened 
;then request record 


WRITE.MAR; 1 


Us 
To 
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| PUpayer Te - pli runtime write file yp ak dat hs 9 Oereri al AX/VMS Macro V04-00 Page 4 “ 
/ 1-003 6-SEP=1984 11:40:25 CPLIRTL.SRCIPLIWRITE.MAR; 1 (1) 
| 03 10 A2 06 €0 0028 143 bbs #atrov meeete - 
| 0 D 144 teb_T_dttr(r25,20$ :if update not specified 
6E c8 D 145 bist #atr_m_output, (sp) jthen request output 
DD 00 Fg 20$: pushl F spush address of fcb 
ann 0 FB 00 14 calls #2,g*pli$open open the file 
5 OC A DO 00 148 mov feb_l_attr(r2),r3 iget the new attributes 
OA 53 O01 €0 Q03D 149 bbs #atr v_opened,r3,30$ iif file still not opened 
50 00000000'8F bY 041 150 movl #pLi$_open,r0 ;then set open failure 
0108 1 Bpee 13] brw fail sand fail 
0048 188 ; check file attributes. file must have record. file must not have 
Bpee 13 ; input. if file has update, it must have direct. 
0A 53 OC £0 00468 156 $0s: bbs #atr_v_record,r3,40$ iif file does not have record 
50 Q0000000°8F 00 O04F 157 movl #pli$_notrec,r0 sthen set not record file 
OOFD 31 0056 158 brw ail sand fail 
OA 53 06 «£1 0059 159 40S: bbc #atr_ v_input,r3,50$ sif file has input 
50 00000000'8F DO O005D 160 mov L #pliS_writein,r0 sthen set attempted write to input file 
OOEF 31 se: 19) brw ail sand fail 
one! 168 3 process from reference. copy size and address of from to rab. 
54 62 A2 9E 0067 165 50S: movab fcb_b_rab(r2),r4 ;get address of rab 
28 AG «608 AC «(0 «(006B S166 movi = fromaddr(ap),rab$l_rbf(r4) ;copy address of buffer 
Oc AC DD 0070 167 pushl prenlonise zpush size and data type 
00000000'GF 01 FB 0073 168 calls wr -ecg' ts bytesize iget byte size 
03 50 €8 OO7A 169 blbs r0,55 iif invalid data type 
00D6 31 007D 170 brw fail gthen fail 
22 AS «6551 =BO 20080~=—S («171 *«*55$: movw ri,rab$w_rsz(r4) scopy size of buffer 
O&F AC OB Bi 0084 6 cmpw #dat_k_char_var,fromtyp(ap) ;if writing from char var 
13 12 0088 17 bneq 56$ ;then : aie 
0B 53 OD EO OOBA 174 bbs #atr_v_scalvar,r3,551$ ;if scalar varying, write it all 
22 AS) =6—608 BC.) OC«BO 4444 175 movw afromaddr (ap) ,rab$w_rsz(r4) scopy current size to rab 
28 AG) «602 ~=SCC0s«é009 176 addl #2,rab$l_rbf(r4) zsbump address so we don't write Length 
04 11 0097 177 rb 56 :cont ( y ; 
22 A4 «02 = «AO si44 178 551$:  addw #2,rab$w_rsz(r4) zsinclude vcha len in write size 
009D 180 ; process options 
0090 181; ‘ 
2C AS =—4 «(0090 136 56s: clrl rab$l rhb(r4) ;assume no fixed control from 
09 6C D1 QOAO' 18 cmpl (ap) ,#9 options specified? 
14 12 QOOAS 184 bneq 5 37 neq. no 
50 =6©1C AC 3 9E OOAS 185 movab fxcaddr(ap),r0 sget addr of fixed control 
00000000'GF 16 QOA9 186 jsb g“*pli$$fxdctl from sprocess fixed control 
50. 24 AC DO QOOAF 187 mov ee ieeet ae? ory ;get addr of record id to 
O0000000'GF 16 at 138 jsb g*pli$$valrecidto svalidate record id to 
0089 190 ; process keyfrom option. if keyfrom is specified, the file must be keyed. 
00B9 191 ; the pers size and address is copied to the rab. keyed access is set in 
boss 198; ne 
06 6C 01 0089 194 59s: cmpl (ap) ,#6 skeyfrom specified? 
23 19 QOBC 195 blss 70 if iss, no 
50 10 AC 0 33 196 mov keyaddr (ap) .r0 copy address of key 
a 0c 197 beql 70 :if addr = 0 then no keyfrom 
0A 53) 08 «€6©€0 6©00C4)=— 198 bbs #atr_v_keyed,r3,60$ sif file is not keyed. 
50 00000000'8F D0 00C8 199 movi #pli$_notkeyd,r then set not keyed file 
| 


j 


-v 


LISWRITE - pli runtime write file 16-SEP-1984 02:27:5 AX/VMS Macro V04-00 Page 
tah et 99:20:35 PLIRTL.SRCIJPLIWRITE.MAR;1 . 
084 3] OCF 00 brw fail gand fail 
_ BS Aas 4 be 9) 608: clrb rab$b_krf(r4) jwrites always go to primary index 
. 10 AC 4 0D ¢ movab keyaddr(ap),r0 ypoint to key descr 
OOUWVOO00'GF 1 0D9 8 sb Goha 'Oour tener 8 process key 
29.Ci« 1H : rb 00s continue 
ttt 06 3 sequential write. make sure file has seql. set sequential access in rab. 
BE 4 ; if delete set, find the deleted record. 
0A 53 OA EO O0E1 209 708: bbs #atr_v_seql,r3,80$ sif not seql file 
50 00000000°8F 0 065 210 movi  #pliS_notsal,rb set not sequential file 
0067 1 BREE 11 brw fail sand fa 
OA 53 8 €1 EF \¢ 80$: bbc #atr_v_keyed,r3,90$ iif file has keyed 
50 00000000'8F 0 OOF 3 1 mov L #pliS_fokey,r0 set no key specified 
0059 1 QOFA 14 brw fai sand fail ; F 
1E AS 800 «690 O0FD 15 90$: movb #rab$c_seq,rab$b_rac(r4) ;set sequential access in rab 
14 008C C2. 05 «=€1 «20101 1 bbc #tab$v~bio.<fcb_B_fab+fab$b_fac>(r2),105$ ;if block io 
38 AG OD BIRe i clrl rab$i_Bkt(r4) rset for seql access 
Hs 4 3 put the record 
0B 00BC C2 05 €1 O10A 1 1008: bbc #fab$Sv_bio,<fcb_b_fab+fab$b_fac>(r2),105$ ;if block fo 
0110 ¢ $Swrite r4 j;do a write 
09 11 «+O119 brb 107$ cont 
0118 24 105$: $put r4 ;put the record 
0A 50 «EB Bigs 25 107$: blbs r0,1208 if put failed y 
50 00000000°8F Q 0127 $8 110$: movl #oli$_rmsr,r0 ;then set error code in rab 
0025 1 bi¢t Si brw ail sand fail 
ate $3 3 successful completion 
OC A2 02080000 8F CA 0131 31 1208: bict #<atr_m_delete!atr_m_virgin>, - ;clear delete, virgin 
0139 $35 feb_l7attr(r2) sin feb 
OC A2 00140000 BF CB 0139 3 bisl #<atr_m_write!atr_m_currec>, - ;set write as last oper and 
0141 234 feb_l7aftr(r2) ;Current record incorrect ; 
20 A2 10 AS 7D 0141 35 mova rabSwrfa(r4),fcb_q_rfa(r2) ;set correct current record in fcb 
09 6C D1 0146 36 cmol (ap) ,#9 options passed? 
OA 19 0149 = blss 1258 ;if lss, no 
50 24 aC 00 0148 8 mov | recidto(ap),r0 iget addr of recid to 
04 135 O14F 39 beql 125$ iif eql, not specified 
60 10 A4 7D 0151 40 mova rab$w_rfa(r4),(r0) set recid io 
04 3122 $e) 125$: ret return 


—___--- —_-- 
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| Susi TE - pll runtime write file iy as PS 9 Serer] owt in Macro V04-00 Page 
4 3 66-SEP-1984 11:40:25 CPLIRTL.SRCIPLIWRITE.MAR;1 
| oa 186 rk; fail b 10$ if h 
ail: ne zsif not enou arms 
50 eemnneed 06 128 6 noel #oli$_parm,r0 jthen set oat eneueh parms 
2 D4 O15F 4 clrl r jsassume no fcb specified 
01 6C 01 0161 48 cmpl (ap), #1 :if feb specified 
1¢ 8619 «40164 49 blss 30 jthen 
52. 04 AC D0 0166 50 mov fcbaddr(ap),r2 get address of fcb 
50 00000000°8F D1 OQO16A 51 108: cmpl #oli$_rmsr,r0 rms rab error code? 
OF 12 0171 26 bneq 30$ sif neq, no, cont 
03 6C O01 gee 5 cmpl 69g) 3 pkey specified? 
OA 13 17 54 beql 30 sif eql, no, cont 
53 10 AC 9E B12 55 movab keyaddr(ap),r3 ;set addr of key descr for onkey 
QO000000'GF 16 O17¢ 2$ jsb g*pli$$chk_keycnd check for key condition 
5 DD 0182 57 308: pushl r2 set fcb addr 
P) DD 0184 58 pusht 0 sset error code | 
QO000000'8F DD 0186 59 pushl #pli$_error ;set error condition 
00000000'GF O03 FB B136 60 40$: calls #3,g*pli$io_error signal the condition 
04 019 261 ret sreturn 
0194 soe 
0194 26 
0194 264 end 
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PLISWRITE 
Symbol table 
TMP) 


BSE ERT I SO, oe tens ee rg 
| L | 
| PLISWRITE - pli runtime write file 16-SEP-1984 Oe:9r: 31 eas Macro V04-00 Page 8 -! 
Psect synopsis 6-SEP=1984 11:40:25 CPLIRTL.SRCIPLIWRITE.MAR; 1 (1) 
moa ne eee ae eecececece + 
: Psect synopsis ! 

| PSECT name Allocation PSECT No. Attributes 

- ABS . BF 888008 ( 8. 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

SABSS 000001 ( 650.) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 

-PLISCODE 00000194 (¢ 404.) 02 ¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

ee me ee See wee 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 

Initialization io 00:00:00.07 00 +00 00.33 

Command processing MS 00:00:00.52 00:00:01.5 

Pass 199 00:00:07.30 00:00:15.58 

Symbol table sort 0 00:00:00.79 00:00:01.89 

Pass 2 54 00:00:01.35 00:00:02.89 

Symbol table output 11 BB BS Oh ho 00:00:00.28 

Psect synopsis output 2 00:00:00.02 00:00:00.02 

Cross-reference output 00:00:00.00 00:00:00.00 

Assembler run totals 354 00:00:10.15 00:00:22.53 


The working set Limit was 900 pages. : , 

39078 bytes (77 pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 694 non-local and 22 local symbols. 
264 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

21 pages of virtual memory were used to define 18 macros. 


etic ietieticetieetiaetieticati aetna adeedicadediadetetetetedt aia + 
! Macro Library statistics ! 
peewee mem we mee wee we ee eH eee 
Macro Library name Macros defined 
-$255$DUA28: CPLIRTL.OBJJPLIRTMAC.MLB; 1 5 
$255$DUA28: (SYSLIBISTARLET.MLB; 2 10 
TOTALS (all Libraries) 15 


789 GETS were required to define 15 macros. 
There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESS1ON/D I SABLE=TRACEBACK/LIS=LIS$:PLIWRITE/OBJ=OBJ$:PLIWRITE MSRC$:PLIWRITE/UPDATE=(ENHS$:PLIWRITE)*LIBS:PLIRTMAC/L | 


